home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / fortran / peekpo.com / PUT2.FOR < prev    next >
Encoding:
Text File  |  1989-10-12  |  472 b   |  12 lines
  1.       SUBROUTINE PUT_IT(SCREEN,IFORE,IBACK,ICOLUMN,ILINE,MSG)
  2.       character*(*) msg                 ! Message to write
  3.       integer*2 screen(80,25)           ! This is the tube
  4. c
  5.       iatt=ior(ishft(iback,12),ishft(ifore,8))  ! Video attributes
  6.       l=len(msg)                        ! Length of message
  7.       do 20 i=1,l                       ! For all chars ...
  8.    20 screen(icolumn+i-1,iline)=iatt+ichar(msg(i:i)) ! Ship it out
  9. c
  10.       return
  11.       end
  12.